home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d14
/
appshl.arc
/
APPOPSV.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-08-17
|
13KB
|
285 lines
AppOpenSave
File Open
wwwwwwwwwp
wwwwwwwwwp
wwwwwwwwwp
Form1*
FileName
FileName
OKCmd
FileNameLbl
File &Name:
DirectoryLbl
Directory:
Directory
CancelCmd
&Cancel
FilesLbl
&Files:
DirectoriesLbl
&Directories:
FilesList
DirectoriesList
TheFocus
List1Flag@
Text1Flag
TheDriveI
LastChange
@ Form_Load
FormTitle>
FOpenFormF
Caption7
ThePath
File1
ThePattern
Pattern
Text1b
Textr
Label1
Form_GotFocus|
List1
List1_GotFocus
GetFocus
SendMessageY
LB_DIR
BuildSpec
SelStart
SelLength
Visible
List1_Dblclick
ListIndex
curnt
OldPath
ChangeDrive
ErrState
LB_RESETCONTENT
List1_KeyPress}
KeyAsciik
File1_Click
FileName
File1_KeyPress
File1_DblClick
Command1_Click
Text1_Keypress
temp;
RemoveSpaces
Listcount<
TheFileNameV
Foundit
true7
false
tempo
ProcessEntry
ChangeDir
TheStructv
OfStruct
OpenFileQ
OF_EXIST
lclose0
FullName
Text1_Changes
List1_Click
TheText1
Command2_Clickz
fpath
Text1_GotFocus
maxi%
TextLimit[
EM_LIMITTEXT
CompleteName
ErrCodeK
DirLabel_Clickc
Label4_Click
Command1_DragDropf
Source
Command1_DragOver
State
Command1_GotFocus)
Command2_DragDrop&
Command2_DragOver
Command2_GotFocus
Command2_KeyDown{
KeyCodeq
ShiftS
Command2_KeyPressh
Command2_KeyUp
FilesLabel_Click~
FNameLabel_Click
Label1_Click
CE_Path
CE_FileName
CE_FullFileName
CEOpenSave
CE_Drive
CE_FormTitle
CE_SaveOpenTitleC
CE_OpenSaveTitled
CE_FilePattern
UpdateDirList
SetFileLimit
CurFocus>
App_Driver
App_OpenSaveTitle
App_FilePattern9
App_Path
App_FileName
App_FullFileName
AppOpenSave
App_OpenSaveStyle
APPOPEN
App_OpenTitle|
App_SaveTitle
APP_OPEN
invoke
Remove_Items_from_Sysmenu^
AppAbout
Screen
Width
Height
FilesLabele
DirLabelS
Command1Y
Enabled
APP_SAVE1
tryingj
drive
App_DialogReturn3
IDCANCEL
MB_ICONSTOP
FileName_Change
CancelCmd_Click-
DirectoriesLbl_ClickF
DirectoriesList_Click
Directory_Click
OKCmd_Click
FileName_KeyPress$
FileList
DirectoriesList_Dblclick
FilesList_Click
FilesList_DblClick
FileList1
FileList_DblClick
FilesList_KeyPress
DirectoriesList1
DirectoriesList
DirectoryLabela @
DirectoriesList_GotFocus} @
DirectoriesList_KeyPress
FileNameText1
OKCmd:
FileName_GotFocus
DirectoryLbl
FilesLbl
DirectoriesLbl
FilesLbl_Click
FileNameLbl_Click
DirectoryLbl_Click
Directory
FilesList
Validate_FileName
MustExist"
FileNameError
Exit_Function
FILE_NOT_FOUND
MB_ICONEXCLAMATION<
APP_NAME
CurFo
DirectoryList
FunctionExitk
AppMain
MB_QUESTIONr
MB_YESNO
IDYES
MB_EXCLAMATION
MB_DEFBUTTON2
estIf$
DuplicateFilec
SaveDuplicate
App_FileExtension
FilesName
SplitFileName
fqual
LastOne1
PATH_NOT_FOUND]
pqual
Validate_SaveFileName
CheckFileQualH
TempSub!
Validate_SAve
Validate_OpenFileName
FileExists
Exit_OpenFunction
OpenFileNameError
SaveFileNameError
Exit_SaveFunction
FileNotFound
FirstCheck
OldPattern
RefreshDirectoriesList
Place_DialogBox_in_Form
MousePointer
HOURGLASS
DEFAULTt
Form_Load
Update Drive/Subdirectory listbox first time
Limit text length of file name first time
load dialog box caption
File Open"
File Save As
load the path
set the pattern
load default file namea
adjust the dialog's controls for open or save
Form_GotFocus
Set the Focus to fill the ListBox
RemoveSpaces
BuildSpec
CancelCmd_Click
DirectoriesList_Click
FileName_Change
OKCmd_Click
FilesList_Click
FilesList_DblClick
duplicate file name on save
Replace Existing "
do not save the file!"u
FilesList_KeyPress
DirectoriesList_Dblclick
DirectoriesList_GotFocus
first time load of directories list
DirectoriesList_KeyPress
check if the user presses the Return key while on a valid entry
FileName_GotFocus
limit the text entry to not more than 127 characters
FileName_KeyPress
get rid of the beep
do save checking here - add extension if user forgott
open file checkingh
Validate_SaveFileName
first assign any path change enteredr
now check the the file name portion
if it exists already a dblclick will be generated ine
the files list control otherwise a file error will be
generated (i.e. file not found, bad file name )
directory changeh
Directory does not exist;"
check to ensure you specified the correct directory.
check to ensure the filename has no more than 8 characters followed by a period and a 3-letter extension."
No spaces, commas, or backslashes (/) are allowed.
CheckFileQual
too many .h
Validate_OpenFileName
first assign any path change entered
now check the the file name
if it exists already a dblclick will be generated in
the files list control otherwise a file error will be
generated (i.e. file not found, bad file name )
must have been a directory or pattern change only so update dir. list
Cannot find
check to ensure that the path and file are correct."
Directory does not exist;"
check to ensure you specified the correct directory.
check to ensure the filename has no more than 8 characters followed by a period and a 3-letter extension."
No spaces, commas, or backslashes (/) are allowed.
RefreshDirectoriesList